home *** CD-ROM | disk | FTP | other *** search
- 5 '*** OISAC 2 *** VT 52 ***
- 10 OPEN"COM0:6,N,8,1,N,N,N,B" AS #1
- 20 CLS:PRINTCHR$(9)"Texte ou Code CTRL (T/C) ?";:$=INPUT$(1):PRINTCHR$(13);:IF $="T" THEN40ELSEIF $<>"C" THENBEEP:GOTO20
- 32 PRINT"Carac ASCII : ";:INPUT@1;C$:PRINT#1,CHR$(27)+C$
- 40 INPUT"Texte : ",$:PRINT #1,$:GOTO20